home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 6 / The Arsenal Files 6 (Arsenal Computer).ISO / wildcat / eyechall.zip / EYECHALL.WCX (.txt) < prev    next >
Wildcat! WCX  |  1996-02-05  |  11KB  |  384 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  11425 bytes  01/28/123  08:37:10pm
  3. '! Code Segment Size  :6443 bytes
  4. '! Data Segment Size  :4627 bytes
  5. '! String Segment Size:4982 bytes
  6. '! Compiled with WCC version 4.01
  7.  
  8.       Dim s4463 As String
  9.       Dim i4467 As Integer
  10.       Dim l4474 As Long
  11.       Dim l4478 As Long
  12.       Dim i4482(0 To 16) As Integer
  13.       Dim i4516 As Integer
  14.       Dim i4518 As Integer
  15.       Dim i4520 As Integer
  16.       Dim i4522 As Integer
  17.       Dim i4524 As Integer
  18.       Dim i4526 As Integer
  19.       Dim i4528 As Integer
  20.       Dim i4530 As Integer
  21.       Dim i4532 As Integer
  22.       Dim i4534 As Integer
  23.       Dim i4536 As Integer
  24.       Dim i4538(0 To 12) As Integer
  25.       Dim i4564 As Integer
  26.       Dim s4566 As String*1
  27.       Dim i4567(0 To 10) As Integer
  28.       Dim i4591 As Integer
  29.       Dim s4593 As String*4
  30.       Dim s4597 As String*4
  31.       Dim b4601 As Byte
  32.       Dim b4602 As Byte
  33.       Dim i4603 As Integer
  34.       Dim i4605 As Integer
  35.       Dim i4607 As Integer
  36.       Dim i4609 As Integer
  37.       Dim s4611 As String*2
  38.       Dim s4613 As String*4
  39.       Dim dt4617 As DateTime
  40.       Dim s4623 As String
  41.  
  42.       Dim l65530_ As Long
  43.       Dim i65534_ As Integer
  44.  
  45.       s4463 = MakeWild.RegString
  46.       GoSub 6047
  47.       Cls 
  48.       Locate 5, 1
  49.       Print "@19@┌──────────────────────────────────────────────────────────────────────┐"
  50.       Print "@19@│@1A@      Written by Rick Quayle of Intimate Eyes BBS 206-271-6912      @1E@ @1A@ @10@│"
  51.       Print "@19@│@1A@ @10@   @1A@    This game is also in Eyestime (Time Banking System)           @10@│"
  52.       Print "@19@│@1A@  This is a number challenge game that you can play for time on this  @10@│"
  53.       Print "@19@│@1A@BBS. You have 6 Minues to complete the challenge. If you place a      @10@│"
  54.       Print "@19@│@1A@time bet and get it wrong or stop it sooner than the 6 minutes        @10@│"
  55.       Print "@19@│@1A@then the game will take the amount of time you have bet. If you place @10@│"
  56.       Print "@19@│@1A@a (0) in the (Bet) field then the game will end. Otherwise it will    @10@│"
  57.       Print "@19@│@1A@Play on. The Squares are in black so you know which ones they are.    @10@│"
  58.       Print "@19@│@1A@The letter squares are the ones you fill in.                          @10@│"
  59.       Print "@19@│@1A@                                                                      @10@│"
  60.       Print "@19@│@1A@   Welcome to EyeChallenge... Good Luck and have fun.                 @10@│"
  61.       Print "@19@└─@10@─────────────────────────────────────────────────────────────────────┘"
  62.       Print ""
  63.       WaitEnter 
  64.       CarrierCheck(-1)
  65.       i4516 = 1
  66.       i4564 = 1
  67.       Do
  68.         Do
  69.           Do
  70.   221       Print "@07@@CLS@@0B@         @0E@Number Challenge for time on @0B@@BBS@"
  71.             Print ""
  72.             Print "  @07@Max amount you can bet = 20  , @0C@payoff is 3 times the amount bet.@07@"
  73.             Print "@07@                                                                            "
  74.             Print "  @1B@┌────────────────────────┐@0A@"
  75.             Print "@0A@  @1B@│@1A@Place Amount to Bet:@1A@    @10@│@09@           @40@┌────┐@0A@ @09@ @4C@┌─────────────────────────┐@0A@"
  76.             Print "@0A@  @1B@└@10@────────────────────────┘@09@           @40@│    │@0A@  @4C@│@4B@ Enter (0) in Bet field  @40@│@0A@"
  77.             Print "@0A@                   @40@┌────┬────┬────┬────┼@4C@────@40@┤@0A@  @4C@│@4B@  to end this game.      @40@│@0A@"
  78.             Print "@0A@                   @40@│@4C@    @40@│    │    │    │    │@0A@  @4C@│@4B@                         @40@│@0A@"
  79.             Print "@0A@ @0B@Add the squares@0A@   @40@├@4D@────@40@┼@4D@────@40@┼@4D@────@40@┼@4D@────@40@┼@4C@────@40@┤@0A@  @4C@│@4B@ @4C@-----------------------@4B@ @40@│@0A@"
  80.             Print "@0A@ @0B@from left to   @0A@   @40@│    │    │    │    │    │@0A@  @4C@│@4B@  @4A@The red (#) signs in  @4B@ @40@│@0A@"
  81.             Print "@0A@ @0B@right, top to @0A@    @40@├@4D@────@40@┼@4D@────@40@┼@4D@────@40@┼@4D@────@40@┼@4C@────@40@┤@0A@  @4C@│@4B@ @4A@the squares are for    @4B@ @40@│@0A@"
  82.             Print "@0A@ @0B@bottom, diagonal@0A@  @40@│    │    │    │    │    │@0A@  @4C@│@4B@ @4A@you to fill in.         @4B@@40@│@0A@"
  83.             Print "@0A@ @0B@numbers through@0A@   @40@├@4D@────@40@┼@4D@────@40@┼@4D@────@40@┼@4D@────@40@┼@4C@────@40@┤@0A@  @4C@│@4B@ @4C@-----------------------@4B@ @40@│@0A@"
  84.             Print "@0A@ @0B@center should add@0A@ @40@│    │    │    │    │    │@0A@  @4C@│@4B@  @4E@ You Only get 6 min.   @40@│@0A@"
  85.             Print "@0A@ @0B@to upper & lower @0A@ @40@├@4D@────@40@┼@4D@────@40@┼@4D@────@40@┼@4D@────@40@┼@4C@────@40@┤@00@ @0A@ @4C@│@4B@  @4E@to finish or you lose. @40@│@0A@"
  86.             Print "@0A@ @0B@right. @0A@           @40@│    │@4C@   @40@ │    │    │    │@0A@  @4C@│  @4E@Your Time Left =@4C@       @40@│@0A@"
  87.             Print "@0A@                   @40@└@4C@────@40@┴@4C@────@40@┴@4C@────@40@┴@4C@────@40@┴@4C@────@40@┘@07@  @4C@└@40@─────────────────────────┘@07@"
  88.             Print ""
  89.             s4593 = "@4B@"
  90.             s4597 = "@40@"
  91.             s4566 = "1"
  92.             b4601 = 9
  93.             b4602 = 22
  94.             Locate 17, 68
  95.             Print "@4F@"; TimeLeft
  96.             Locate 6, 25
  97.             Print "@1A@";
  98.             Input i4591
  99.             Locate 6, 25
  100.             Print "@1A@"; i4591
  101.             If i4591 = 0 Then
  102.               Cls 
  103.               Print "@03@"
  104.               GoTo 6260
  105.             End If
  106.   538       If (i4591 > 20) = 0 Then GoTo 589
  107.             Locate 19, 5
  108.             Print "@0B@ Sorry You Can't bet over the amount of time you have left, Try again"
  109.             Delay 2
  110.           Loop
  111.           GoTo 5827
  112.   589
  113.   610     For i4516 = 1 To 16 Step 1
  114.             i4482(i4516) = Int(Rnd * 9) + 1
  115.             If i4482(i4516) <= 0 Then
  116.               i4482(i4516) = i4482(i4516)
  117.             End If
  118.   802     Next
  119.   825     i4518 = i4482(1) + i4482(2) + i4482(3) + i4482(4)
  120.           i4520 = i4482(5) + i4482(6) + i4482(7) + i4482(8)
  121.           i4522 = i4482(9) + i4482(10) + i4482(11) + i4482(12)
  122.           i4524 = i4482(13) + i4482(14) + i4482(15) + i4482(16)
  123.           i4526 = i4482(1) + i4482(5) + i4482(9) + i4482(13)
  124.           i4528 = i4482(2) + i4482(6) + i4482(10) + i4482(14)
  125.           i4530 = i4482(3) + i4482(7) + i4482(11) + i4482(15)
  126.           i4532 = i4482(4) + i4482(8) + i4482(12) + i4482(16)
  127.           i4534 = i4482(1) + i4482(5) + i4482(9) + i4482(12)
  128.           i4536 = i4482(1) + i4482(6) + i4482(11) + i4482(16)
  129.           i4534 = i4482(13) + i4482(10) + i4482(7) + i4482(4)
  130.           Locate 7, 42
  131.           Print s4593; i4536
  132.           Locate 9, 37
  133.           Print s4593; i4482(4)
  134.           Locate 9, 42
  135.           Print s4593; i4518;
  136.           Locate 11, 22
  137.           Print s4593; i4482(5)
  138.           Locate 11, 42
  139.           Print s4593; i4520;
  140.           Locate 13, 42
  141.           Print s4593; i4522;
  142.           Locate 15, 42
  143.           Print s4593; i4524;
  144.           Locate 17, 42
  145.           Print s4593; i4534;
  146.           Locate 15, 27
  147.           Print s4593; i4482(14)
  148.           Locate 13, 32
  149.           Print s4593; i4482(11)
  150.           Locate 17, 22
  151.           Print s4593; i4526;
  152.           Locate 17, 27
  153.           Print s4593; i4528;
  154.           Locate 17, 32
  155.           Print s4593; i4530;
  156.           Locate 17, 37
  157.           Print s4593; i4532;
  158.           Locate 9, 24
  159.           Print s4597; "A"
  160.           Locate 9, 29
  161.           Print s4597; "B"
  162.           Locate 9, 34
  163.           Print s4597; "C"
  164.           Locate 11, 29
  165.           Print s4597; "D"
  166.           Locate 11, 34
  167.           Print s4597; "E"
  168.           Locate 11, 39
  169.           Print s4597; "F"
  170.           Locate 13, 24
  171.           Print s4597; "G"
  172.           Locate 13, 29
  173.           Print s4597; "H"
  174.           Locate 13, 39
  175.           Print s4597; "I"
  176.           Locate 15, 24
  177.           Print s4597; "J";
  178.           Locate 15, 34
  179.           Print s4597; "K";
  180.           Locate 15, 39
  181.           Print s4597; "L";
  182.           Locate 1, 1
  183.           l4474 = Ticker
  184.           l4474 = l4474
  185.           Do
  186.  2823       s4566 = "1"
  187.             i4564 = 0
  188.             l4478 = Ticker
  189.             If l4478 - l4474 > 6552 Then
  190.               Locate 21, 8
  191.               Print " You have ran out of time for the game. "
  192.               Delay 3
  193.               GoTo 3726
  194.             End If
  195.  2901       Locate 20, 3
  196.             Print "@03@Enter Square Letter to fill, Enter a Letter from A to L"
  197.             Print "or enter (0) to End and Calculate your numbers: ";
  198.             Input s4566
  199.             Locate 20, 3
  200.             Print "                                                               "
  201.             s4566 = UCase(s4566)
  202.             Print "                                                                           "
  203.             If s4566 = "0" Then
  204.               GoTo 3726
  205.             End If
  206.  2999       If s4566 = "A" Then
  207.               i4564 = 1
  208.               GoSub 5894
  209.               Locate 9, 21
  210.               b4601 = 9
  211.               b4602 = 22
  212.               GoSub 5992
  213.             End If
  214.  3058       If s4566 = "B" Then
  215.               i4564 = 2
  216.               GoSub 5894
  217.               Locate 9, 26
  218.               b4601 = 9
  219.               b4602 = 27
  220.               GoSub 5992
  221.             End If
  222.  3117       If s4566 = "C" Then
  223.               i4564 = 3
  224.               GoSub 5894
  225.               Locate 9, 31
  226.               b4601 = 9
  227.               b4602 = 32
  228.               GoSub 5992
  229.             End If
  230.  3176       If s4566 = "D" Then
  231.               i4564 = 4
  232.               GoSub 5894
  233.               Locate 11, 26
  234.               b4601 = 11
  235.               b4602 = 27
  236.               GoSub 5992
  237.             End If
  238.  3235       If s4566 = "E" Then
  239.               i4564 = 5
  240.               GoSub 5894
  241.               Locate 11, 31
  242.               b4601 = 11
  243.               b4602 = 32
  244.               GoSub 5992
  245.             End If
  246.  3294       If s4566 = "F" Then
  247.               i4564 = 6
  248.               GoSub 5894
  249.               Locate 11, 36
  250.               b4601 = 11
  251.               b4602 = 37
  252.               GoSub 5992
  253.             End If
  254.  3353       If s4566 = "G" Then
  255.               i4564 = 7
  256.               GoSub 5894
  257.               Locate 13, 21
  258.               b4601 = 13
  259.               b4602 = 22
  260.               GoSub 5992
  261.             End If
  262.  3412       If s4566 = "H" Then
  263.               i4564 = 8
  264.               GoSub 5894
  265.               Locate 13, 26
  266.               b4601 = 13
  267.               b4602 = 27
  268.               GoSub 5992
  269.             End If
  270.  3471       If s4566 = "I" Then
  271.               i4564 = 9
  272.               GoSub 5894
  273.               Locate 13, 36
  274.               b4601 = 13
  275.               b4602 = 37
  276.               GoSub 5992
  277.             End If
  278.  3530       If s4566 = "J" Then
  279.               i4564 = 10
  280.               GoSub 5894
  281.               Locate 15, 21
  282.               b4601 = 15
  283.               b4602 = 22
  284.               GoSub 5992
  285.             End If
  286.  3589       If s4566 = "K" Then
  287.               i4564 = 11
  288.               GoSub 5894
  289.               Locate 15, 31
  290.               b4601 = 15
  291.               b4602 = 32
  292.               GoSub 5992
  293.             End If
  294.  3648       If s4566 = "L" Then
  295.               i4564 = 12
  296.               GoSub 5894
  297.               Locate 15, 36
  298.               b4601 = 15
  299.               b4602 = 37
  300.               GoSub 5992
  301.             End If
  302.  3707     Loop Until s4566 = "0"
  303.  3726     i4567(1) = i4538(1) + i4538(2) + i4538(3) + i4482(4)
  304.           i4567(2) = i4538(4) + i4538(5) + i4538(6) + i4482(5)
  305.           i4567(3) = i4538(7) + i4538(8) + i4538(9) + i4482(11)
  306.           i4567(4) = i4538(10) + i4538(11) + i4538(12) + i4482(14)
  307.           i4567(5) = i4538(1) + i4538(7) + i4538(10) + i4482(5)
  308.           i4567(6) = i4538(2) + i4538(4) + i4538(8) + i4482(14)
  309.           i4567(7) = i4538(3) + i4538(5) + i4538(11) + i4482(11)
  310.           i4567(8) = i4538(6) + i4538(9) + i4538(12) + i4482(4)
  311.           i4567(9) = i4538(5) + i4538(8) + i4538(10) + i4482(4)
  312.           i4567(10) = i4538(1) + i4538(4) + i4538(12) + i4482(11)
  313.           If i4518 <> i4567(1) Or i4520 <> i4567(2) Or i4522 <> i4567(3) Or i4524 <> i4567(4) Or i4567(5) <> i4526 Or i4567(6) <> i4528 Or i4567(7) <> i4530 Or i4567(8) <> i4532 Or i4567(9) <> i4534 Or i4567(10) <> i4536 Then
  314.             Print "@03@            You have lost the game and time "
  315.             AddTime - i4591
  316.             Delay 2
  317.           End If
  318.  5467     If i4518 = i4567(1) And i4520 = i4567(2) And i4522 = i4567(3) And i4524 = i4567(4) And i4567(5) = i4526 And i4567(6) = i4528 And i4567(7) = i4530 And i4567(8) = i4532 And i4567(9) = i4534 And i4567(10) = i4536 Then
  319.             GoTo 5842
  320.           End If
  321.  5827   Loop
  322.         Delay 2
  323.         End 
  324.  5842   Locate 20, 3
  325.         Print " @03@ You Have Done it in the amount of time required. You have Won the time bet x 3  "
  326.         i4591 = i4591 * 3
  327.         AddTime i4591
  328.         Delay 2
  329.       Loop
  330.  5894 Locate 20, 3
  331.       Print "@1A@Enter a number from 1 to 9 for Square number = "; s4566; "  "
  332.       i4538(i4564) = InputNumber("@03@   Enter your Number =: ", 1, 9)
  333.       Locate 20, 3
  334.       Print "                                                                  "
  335.       Print "                          "
  336.       Return 
  337.  5992 Locate b4601, b4602
  338.       Print "@4F@"; i4538(i4564)
  339.       Return 
  340.       End 
  341.  6047 CurrentDateTime dt4617
  342.       s4623 = "Program: EyeChallenge Game :"
  343.       s4623 = s4623 + FormatDate(dt4617.D, "mm/dd/yy") + FormatTime(dt4617.T, " hh:mm")
  344.       ActivityLog s4623
  345.       i4603 = 90
  346.       i4605 = 1483
  347.       s4611 = Left(s4463, 2)
  348.       s4613 = Right(s4463, 4)
  349.       i4607 = Val(s4611)
  350.       i4609 = Val(s4613)
  351.       If i4603 = i4607 And i4609 = i4605 Then
  352.         i4467 = 100
  353.         Return 
  354.       End If
  355.  6220 If i4607 <> i4603 Or i4609 <> i4605 Then
  356.         i4467 = 99
  357.         Return 
  358.       End If
  359.  6260 Cls 
  360.       If i4467 = 100 Then
  361.         End 
  362.       End If
  363.  6279 Print "@0E@@CLS@@07@"
  364.       Print ""
  365.       Print
  366.       Print
  367.       Print
  368.       Print
  369.       Print "@07@              @19@┌───────────────────────────────────────┐@07@"
  370.       Print "@07@              @19@│@1B@       Written By Rick Quayle          @10@│@07@"
  371.       Print "@07@              @19@│@1B@         Intimate Eyes BBS             @10@│@07@"
  372.       Print "@07@              @19@│@1B@           206-271-6912                @10@│@07@"
  373.       Print "@07@              @19@│@1B@  @1C@----------------------------------@1B@   @10@│@07@"
  374.       Print "@07@              @19@│@1B@    Unregistered = 5 Second Delay   @1B@   @10@│@07@"
  375.       Print "@07@              @19@│@1B@  @1C@----------------------------------@1B@   @10@│@07@"
  376.       Print "@07@              @19@│@1B@  @1A@Please ask your sysop to register   @1B@ @10@│@07@"
  377.       Print "@07@              @19@│@1B@ @1A@  @1B@ @1A@   EyeChallenge. only $5.00   @1B@     @10@│@07@"
  378.       Print "@07@              @19@│@1B@     @1A@The delay will disappear with @1B@    @10@│@07@"
  379.       Print "@07@              @19@│@1B@      @1A@      @1B@ @1A@registration. @1B@            @10@│@07@"
  380.       Print "@07@              @19@└@10@───────────────────────────────────────┘@07@"
  381.       Print "@03@"
  382.       Delay 5
  383.       End 
  384.